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PROCEDURE INITIALIZE; 30001000 
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PROCEDURE GETINFQS 31001000 
BEGIN ARRA¥ ALOI9]73 31002000 1@ 
FILE SPO 11¢1910)3 sete oer err te Sete ier Soe OOO 8 Ante otto ox, Stet: 3 
FORMAT FIC"ENTER FILE NAME") » 31004000 4 
F2C"ENTER START TIME"); 31005000 1@ 
SOSA s es PRES asec Pee eee eS whi BPSOOGOO: co 2.8 ee eee 6 
STREAM PROCEDURE GETNAM(ASB)3 | 31101000 7 
BEGIN LABEL L3 31102000 |@ 
. _~A%OCAL XF = rm OE ae et PA SOOO os os a oh Re 9 
SI3=A3 31104000 10 
2¢ 31105000 1@ 
eee bt oF Sc=" " THEN BEGIN SItsst+1s GO TO L ENDS 31106000 12 
IF Sc2"e" THEN JUMP OUTS 31107000 13 
DIt=LO0c Xs DSt28 LITO "3 DISEDI"73 31108000 Jl@ 
CIF SQSALPHA THEN DSt=CHR ELSE JUMP QUT) DE ROPOOO gi, cen eres ok 15 
OIs=sR3 Ae Sls=L0C x3 DSt=woOs3 31110000 bes 
Bi=D1s SI 31111000 1@ 
a ataghea 1 Eee aE eae TREN SE itn a i ett Sethe SS eat EB | DOO Oe hen nn Seeds Bree cows oe ‘3 
IF Sc="e" THEN JUMP JUT ELSE SIteSle 13 341113000 hes 
)3 31114000 21@ 
eS 2s eel eee ae ene oe meee eae cbse th ete te ales Stes nel hl A ASOD, >), Be ct ate akateee 21 
% 31200000 i 
STREAM PRUCEDURE GETIME( ASB); 31201000 231@ 
BEGIN: LABEL C1 pb Og ne i foo emege eo at eee ee AE BOZOO0. enna ek. : 4 
STtsas OLt=B3 34203000 5 
 ] 4¢ 31204000 27@ 
1! IF Sc=" " THEN BEGIN SyssSi+3% GO TO LY ENDS = 33205000... Sees 2 
IF Sc="2" THEN BEGIN SJt=Si+1s GO TO L1 ENDS 31206000 28 
@ IF SC LSS "O" THEN JUMP QuUTs 31207000 21@ 
todo Ee OC GI Re ON LOE NS JUMPS OUT ck cts ue ee Oe eT COB OOO me eee wa 
SlisSI+i3 : 31209000 a 
® IF SC LSS "O" THEN GO TO L2s 31210000 1@ 
ae sees Hoel 1 Wess 21 a eR PRS © 2-2 0 10 eee ee 33 
BEGIN SIssSle1s OS:%2 Oct END ELSE 31212000 é‘ 
@ L2t BEGIN SIt=Sl=1s 0S?50CT ENDS 31213000 33@ 
2 sit aa tata ie ap ot SRS eh sa a i cho aces Pe lc Be A es Senet y hens As ee eee, 
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Pe hanes cuieh mace Mie OES LABEL EQUATION FOR SEPTIC eet St epi eS eee oe OOOO... am nF 
a 31902000 ‘ 
@ i WRITECSPOSF1)3 31903000 a1 
i Bn oe ee ee READCSPQs1OsAC*#I)s eee eS ee eT Ch cd O80 050 Sn ee ee eee ree are 43 
a3 CCLO]FSCClilisn13 31905000 
@ GETNAMCASCC)3 31906000 «4@ 
tt So wes at IF ccrole#"1 THEN eee eee Seat eee ra 31907000. i 49 
IF CCLi}=<1 THEN SEPTIC»FID?=CClO) ELSE 31908000 ae 
er BEGIN SEPTICeMFID:=CC[O]3 31909000 «|@ 
7 _ SEPTICFIDG#CC(1]3 ae 31910000 ———s 7 a8 
ENDS 31911000 As 
@ & x 34912000 «1 @ 
r a _GET STARTING TIME. a 92929008 | 5] 

% 31914000 5 
@ | WRITECSPO*F2)3 31915000 s1@ 
READ(SPO>10,A*]) 31916000 
BS CCOLO]SsCClilteCcl]}rsCCr3itso; 31917000 5 
@ k GETIMECAsCC)3 31918000 54 
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END GETTING FILE AND START TIME WHEN NOT GIVEN THRU COMMONS 31920000 
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REAL STREAM PROCEDURE FR(A)S ee 82UOL0OG erent 
BEGIN SIt=sAjs DIt=LOC FR3 32002000 
@ |: : DS#sLIT"O"; OSta4 VECs DS?23 LIT" "3 32003000 
A eta Pe hs ate ae oat an ea ee wed POU UDO Oichietnake, Mamet eh ee 
33000000 
e STREAM PROCEDURE INITCAD3 33001000 
a : BEGIN DItsa3 DSt=40 LIT 3002000 | eee te 
7 | "PASS INTACTe INTWRITE READ INTERUPT"3 33003000 
a END INITS | 33004000 
| eee anes ee ee a Sa ha se a Sees Sad Ae cee cal gen cert seh Fa POCONO Die pede esr 0, cteerncactersesaceepuater 
ia “REAL X3 34001000 
Or FORMAT HOR(X20s"SEPTIC TANK ANALYSIS OF "sale Ade"/"s Als A6// 34100000 
pa cee ne KAO PAO MDAL “a A2 "Zs A2o"/ 9 AZ XOoT Ze "2" ol 2,48 eT 2,34101000 __. i ites ele Rie ee 
//XS3e"SEPTIC FILE CREATED ON "pA6a"," )» 34102000 
ey RAPT(/X26s"WRAPAROUND HAS OCCURRED.")>. 34110000 
5 — _HDR2¢///X10e"ABN 3 D25 CABNORMAL)"sX159 = BODO OC; ba ts aad 
ie MWR = D21 CWRITE READY) %5/ 34121000 
ev X102"RR = D24 (READ READY)"*X13e"B8SY = DZO (BUSY) "» 34122000 
ra ce eects cows oe $109 "BEL = D023 (BUFFER FINAL LOCATIUN)"sX2e «34423000 | eases as feta seat 
18 "KTR = 018 CUCTU NOT READY)"» 34124000 
@* /XLOs"IDL = D25"Dj6 = 0 CIDLE)"*#//X10> 34125000 
| a ee RO SRP Tn NOTE BSY AND ATR = ADAPTER/DITU NOT READY"ss/)3 34126000... sss eae 
B 39000000 
@ INITONAMD3 39001000 
eer AFLIULEO O TREN GETING O EL Ot SEPTIC sELDISER(L)G ag 0URO00. We 
READCSEPTIC*60sINISP[*]})3 39003000 
@ IF TSSMCPS=BCOLEANCINTSP(OJ) THEN FILLLSTATS 39004000 
ail eee ter TIMCTIMECD) score Bieta dS SO DOB. OO.0-: ose Cet sD ae 
Ps WRITECP®HORs (X?SSEPTICMFIU),LO%6] Xo (XPSSEPTIC FID). C6%6]»X» 39006000 
@: TIMEC6 )oCXPSTIME(S)) ol 12812] Xo l24sleleX.L36tl2)> 39007000 
po cots vow CCLOL COLL ISCCE2I¢1F TSSMCP THEN "TSSMCP™ ELSE " DoMcCP"™);30008000__ Se ae pA ass esse eres oe Pet 
IF WRAPAROUND! ®BOOLEANCINTSPLOJeC4621)) THEN WRITECP*RAPT); 39009000 
@ WRITE CP*HDR2 D3 . 39010000 
J END OF INTIALIZATION PROCEDURESS sts ie er ae reg a enn oe ln ea SOLO OO. eee Se ee ees 
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@* PROCEDURE MMM(B)3 VALUE 8} REAL 33 40001000 
Seine, OE GIN REMI ORB i ae eee ee cs i ee 40002000 ae eA 
% 41000000 
@ STREAM PROCEDURE MOVECA?B)3 41001000 
ee BEGIN SIltaa3 DItse; eh paee, = 443002000, ss 
8CIF TCGGLE THEN DStSLIT " " ELSE 41003000 
@ | IF SC="e" THEN DSSSCHK ELSE DS?=CHR)3 41004000 
pe ND MOVES - Sa ap ee Sg eet APE OO ONC... = 
: 49000000 
@ | po | 49001000 
sac atoe, BEGIN Xt=MIN(Belads 49002000 


FGR Cts0 STEP 1 UNTIL X#1 DO MOVECINTSPEBUMPIJ»LINE[CI)$ 49003000 


WRITECPsX#LINEC*)])3 49004000 
END UNTIL CB SSB 994) LEQ OF 49005000 eee 
ENO MMM} 49006000 
% | 50000000 
STREAM PROCEDURE FULC Ange Ca pegeeagen se. VALVE Bete Dr Eo Fo G3 §0001000 
BEGIN LABEL UP1/UP2/ExITS3 50002000 
DItSH3 I5CDSSSBLIT™ "23 DISEHS STtsa; 50003000 
OSI=WDSi Clt=CloFs GO TO EXITS 50004000 = 
S1tmlocg 83 OlseOre1s. 50005000 
Pairpaeopiaaes At¥OI5OT ta092;05seF ILLsDI reAs0StaLtT9/%95 50006000 
OltsOlo1s OSteaL yt" 5. 50007000 
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S18=SI+63 SKIP 2 983 50008000 
IF S&H THEN CStslLit"1" ELSE OSteLI6"0", SKIP SB3 50009000 
305153 RESETS 3CIF SB THEN DSt=SET ELSE DS%*RESETS SKIP $8))4 50010000 = Se ae ee 
SI#SSI4+73 OLs2Nl+33 Clsscl+Gs GO TO uPis 50011000 
IF Sc2"1" THEN OSte3L IT" IDOL" ELSE §0012000 
ow DT EEDT +33 eeu Read ect er ane Pee arse Siete. i> 1619 fy Ec 5110 1 0) a eee ee ee ee aE 
DI%=D1+33 SIs=S[*95 SKIP 2 SBR; 50014000 
IF Sp THEN OStS3L1T*aun" ELSE Olsspl+3s SnhIP Sps 2025 50015000 
a DLSEDIT433 CILisCl+Gs GO TO UP23; ee es  SOULG000:... Faeeeanaseee 
IF S8 THEN OS833 LIT*RR ™ ELSE 024 50017000 
DIts01+33 : 50018000 
SKIP SBS DI teO1+ 335 la hh st a Sst dt in SOO TOO OO < Pe TRACT 
IF SB THEN CStS3LIT"BFL" ELSE DIt2O1+33 SKIP SBs %D23 50020000 
DIt=O1+33 50021000 
OIG) Bs SB ior he oe ore A eT eH 01° 7-27-1010 © en RPE ee aE ee ee 
IF SA THEN DSts3LIT*WR " ELSE Dls2nle33_ SKIP SB3 4021 50023000 
DItsp1+33 50024000 
IF SB THEN OSt#3LIT"BSyY" ELSE Olsspl+33 SKIP SBs gp20 50025000...” Bete gnsiinh eset 
DI&=01433 50026000 
SKIP SRB *1GNORE O19 50027000 
voc eh EOS BOTHEN OSS S3LLIMNTR" ELSE DIssO1¢38000 | kOe | SOO BNOO OC. te Se ge ee = 
EXITé 50029000 
END FLL 50030000 
a wh BEE a eo Ne a et i en ee ne OOO OOOO) oie. : - _ rere oon ok 
STREAM. Procedure STATCLINESTATsLINEDS- 60001000 
BEGIN SIS=LINESTAT$ DIESLINEs 60002000 
DIsshl+2s NSt216 CHRs 1h ict Gece eo a Anat er eae, CoO OU UI OOO. - seein shh tS ab pate foes a ents 
END. STICKING STATUS InfO QUTPUT FOR “TSS3 60004000 
% 709000000 
_. BOOLEAN STREAM PROCEDURE ENQOFBLOCK( Ads _ f0001000 Be ee 
BEGIN SItsA$ IF Sc=" * THEN [ALLY!=13 70002000 
ENDOF BLOCKS sTALLY3 70003000 
ft END END GE Cy a a oe ee Sc on Sy ce a Se hy oh i ol POO UNOOOl Sf Se eit = 
80000000 
PROCEDURE STATIONCSTA)# VALUE STA} REAL STA3 80001000 
Pa tee SO GIN oe re ot, th te Stine ithe tare aha SS ks Et oi le te At, eG UU OO te 26 20 gong os ttt Ole ee 
81000000 
STREAM PROCEDURE PUTSTACSTA®LINE)S VALUE STAS 81001000 
coe BEGIN STTPLOC STAs DEssbyNes Pane reer tint OL 857-16) £6 ane Re ERED I nA Re 
2(C8¢(OS%s3 RESET; 81903000 
3CIF SB THEN DS?:*SET ELSE DS3=RESETS SKIP SB))3 81004000 
eS rae they sla Nae SMe i tat hal hE ae ees aa ve = Paneer ara” COL 196) Sn ne oe ee 
END3 81006000 
% 82000000 
men STAZO AND TYPE#4 THEN PUTSTACSTAsLINECIOI)s 82001000 Se ar Aaa Serer eect 
END OF STICKING STATION TABLE InTO QUTPUT FOR McP3 82002000 
% 90000000 
Retececaeteeeeacateee ene END QF DECLARATIONS _ tek tae eeeeHI000T000 
90002000 
INITIALIZES 91000000 
IF WRAPARQUND THEN 91001000 
YF INTSPC27,C18#30] CSS STARTIME THEN WRAPARUUNOS©FALSE ELSE 91002000 
BEGIN 08 READCSEPTIC +60, INTSPE*JICWRAP] UNTIL IWTSPLO),6 3815 3m05 91003000 
_ GO TO READNEXT3 91004000 
END3 91905000 
Tt=13 91006000 
GO TO Loop; 91907000, 
WRAP? : es 91008000 ~ 
REWINDCSEPTIC)3 91009000 
WRAPAROUND? @F AL 91010000 
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Its13 91011000 
IF FALSE THEN 91012000 @ 
ghee tal ANN hi sano Le ote cae eat ey agen iste ne a eg ee ees ROO Were £1. (010: a Ne See 
[t=03 91014000 
READCSEPTIC+ 60 INTSPL wl] CEUFIS 91015000 2|@ 
Sears |") Ae eee ie eee ee RT eS ee aaa Dh te oP 9 ces era See hs PMO OO OOO oy areca op aind tetanic 3 
IF (Bt= 4% 92001000 4 
INTSPCIJ)eC3%15]50 THEN GO TO DVATAENDS 92002000 ‘|@ 
rari rant one) LE_INTSPCI4+1).018330) < STARTIME 0 0 F0NO 6 
“THEN TPsINTSPl1)eL33215)+1*2=TMCP ELSE 92004000 7 
BEGIN SXXXLHLALTLLALTSRLT GALE ABLE LATS YS 92005000 1@ 
ee _ FELLCNAMCTYPE2 26.0396) )+0.(9t4)oB, C1424) = — nn ON ce a gh Non Rs Ob al asl at apnn ea 
eB, C218121],Bel24s9]S0eTYPES4e TYPE LEG Lod 92007000 
LINE) 5 %BERVERUELUAA LARS EATALAT ALS SE SRVEEE 92008000 /@ 
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